﻿Imports capaNegocios

Public Class loginForm
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnIngresar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnIngresar.Click

        Dim objSeguridad As New clsSeguridad
        Dim objDataTable As New DataTable

        Dim usuario, nombres, apellidoPaterno, apellidoMaterno, contrasena, estado As String
        Dim tipoUsuario As String

        If txtUsr.Text <> "" Or txtPwd.Text <> "" Then
            objSeguridad.usuario = txtUsr.Text
            tipoUsuario = txtUsr.Text.Substring(0, 3)
            objDataTable = objSeguridad.VerificarUsuario(tipoUsuario)

            If objDataTable.Rows.Count = 0 Then
                Me.lblMensaje.Text = "El Usuario no existe."
            Else
                usuario = objDataTable.Rows(0).Field(Of String)("ADM_ID")
                contrasena = objDataTable.Rows(0).Field(Of String)("ADM_Contrasena")
                nombres = objDataTable.Rows(0).Field(Of String)("ADM_Nombres")
                apellidoPaterno = objDataTable.Rows(0).Field(Of String)("ADM_ApellidoPaterno")
                apellidoMaterno = objDataTable.Rows(0).Field(Of String)("ADM_ApellidoMaterno")
                estado = Convert.ToString(objDataTable.Rows(0).Field(Of String)("ADM_Estado"))

                If (usuario = txtUsr.Text And contrasena = txtPwd.Text) Then
                    If estado = "A" Then 'Usuario (A)ctivo
                        Session("Nombre") = nombres
                        Session("ApellidoPaterno") = apellidoPaterno
                        Session("ApellidoMaterno") = apellidoMaterno

                        If tipoUsuario = "ALU" Then
                            Response.Redirect("usr_alumno/aluDefault.aspx?id=" + usuario + "&nombres=" + nombres + "&apePat=" + apellidoPaterno + "&apeMat=" + apellidoMaterno)
                        ElseIf tipoUsuario = "DOC" Then
                            Response.Redirect("usr_docente/docDefault.aspx?id=" + usuario + "&nombres=" + nombres + "&apePat=" + apellidoPaterno + "&apeMat=" + apellidoMaterno)
                        ElseIf tipoUsuario = "ADM" Then
                            Response.Redirect("usr_secretaria/secDefault.aspx?id=" + usuario + "&nombres=" + nombres + "&apePat=" + apellidoPaterno + "&apeMat=" + apellidoMaterno)
                        End If
                    Else
                        Me.lblMensaje.Text = "Usuario Desactivado"
                    End If
                Else
                    Me.lblMensaje.Text = "Contraseña incorrecta."
                End If
            End If
        Else
            lblMensaje.Text = "Ingresa un usuario/contraseña"
        End If
    End Sub
End Class